home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / TELETYPE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.1 KB  |  29 lines
  1. 100  '*****************************************************
  2. 110  '**                      TELETYPE                   **
  3. 120  '**  NOVEMBER 5, 1982                  VERSION 1.1  **
  4. 130  '*****************************************************
  5. 140  '
  6. 150  CLS : SCREEN 0 : WIDTH 80 : KEY OFF
  7. 160  ON ERROR GOTO 300
  8. 170  FOR X = 1 TO 23
  9. 180  READ A$
  10. 190  FOR Y = 1 TO LEN(A$)
  11. 200  B$ = MID$(A$,Y,1)
  12. 210  PRINT B$;
  13. 220  IF B$ <> " " THEN SOUND 800,1
  14. 230  FOR Z = 1 TO 85 : NEXT Z
  15. 240  NEXT Y
  16. 250  FOR Z = 1 TO 500 : NEXT Z
  17. 260  IF X = 23 THEN LOCATE 25,1 : INPUT "PRESS ENTER TO CONTINUE - ";C$:CLS
  18. 270  PRINT
  19. 280  NEXT X
  20. 290  GOTO 170
  21. 300  LOCATE 25,1 : INPUT "PRESS ENTER TO CONTINUE - ";C$ : CLS : END
  22. 310  DATA "NOW IS THE TIME FOR ALL GOOD MEN TO COME TO THE AID OF THEIR PARTY."
  23. 320  DATA " "
  24. 330  DATA "WE THE PEOPLE OF THE UNITED STATES IN ORDER TO FORM A MORE PERFECT"
  25. 340  DATA "UNION, ESTABLISH JUSTICE, INSURE DOMESTIC TRANQUILITY, PROVIDE FOR"
  26. 350  DATA "THE COMMON DEFENSE, PROMOTE THE GENERAL WELFARE, AND SECURE THE "
  27. 360  DATA "BLESSINGS OF LIBERTY TO OURSELVES AND OUR POSTERITY, DO ORDAIN AND"
  28. 370  DATA "ESTABLISH THIS CONSTITUTION FOR THE UNITED STATES OF AMERICA."
  29.